home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #6 / Amiga Plus CD - 2004 - No. 06.iso / AmigaPlus / Begleitmaterial / 50Tools / Grafik / PerfectPaint / rexx / bridge / MkAnimPict.rx < prev    next >
Text File  |  2001-08-09  |  692b  |  52 lines
  1. /*     arexx Script 
  2.     Make anim with pictures
  3. */
  4.  
  5.     options results
  6.     parse ARG Port b
  7.     
  8.     ADDRESS value Port
  9.  
  10.     pp_AnimGui 1
  11.     if result<0 then
  12.         do
  13.             EXIT
  14.         end
  15.  
  16.     pp_AskMultiFile 'Load*Pictures'
  17.     count=result
  18.  
  19.     pp_Progresstext 'Ld*Pictures'
  20.     file="Ram:MultiFile"
  21.     IF OPEN("g",file,"read") then DO
  22.         file=READLN("g")
  23.         pp_Load file
  24.         pp_MakeAnim count
  25.         pp_CountFrames
  26.         count=result
  27.         Do i=1 to count-1
  28.             pp_Progress i count-1
  29.             pp_FastNextFrame
  30.             file=READLN("g")
  31.             pp_Bload file
  32.             pp_GetWidthB
  33.             w=result
  34.             IF w=0 then DO
  35.                 EXIT
  36.             END
  37.             pp_GetHeightB
  38.             h=result
  39.             x=w/2
  40.             y=h/2
  41.             pp_Plot x y
  42.         END
  43.         CALL close(file)        
  44.         pp_GotoFrame 1
  45.     END
  46.     pp_Progressclr
  47.     pp_FreeBrush
  48.     
  49.     End
  50.  
  51.  
  52.